home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 1
/
PC World Interactive 1 - Nisan 1997.iso
/
prog
/
masa
/
16
/
safescan.exe
/
0
/
RCDATA
/
TFRMREG
/
TFRMREG.txt
< prev
Wrap
Text File
|
1996-10-15
|
5KB
|
262 lines
object frmReg: TfrmReg
Left = 327
Top = 125
BorderStyle = bsDialog
Caption = 'SafetyScan'
ClientHeight = 254
ClientWidth = 438
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 4
Width = 361
Height = 39
Caption =
'This is an unregistered version for evaluation use only. Please' +
' take the time to register this software so that we can continue' +
' to provide you with quality products.'
WordWrap = True
end
object Image1: TImage
Left = 380
Top = 84
Width = 57
Height = 37
Picture.Data = {<image001.bmp>}
end
object Image2: TImage
Left = 380
Top = 4
Width = 57
Height = 37
Picture.Data = {<image002.bmp>}
end
object Image3: TImage
Left = 380
Top = 44
Width = 57
Height = 37
Picture.Data = {<image003.bmp>}
end
object Label7: TLabel
Left = 8
Top = 100
Width = 361
Height = 25
AutoSize = False
Caption =
'Compuserve users can now easily register online: Go SWREG and us' +
'e ID# 12767'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label5: TLabel
Left = 8
Top = 44
Width = 369
Height = 41
AutoSize = False
Caption =
'You may evaluate this Software for 30 days or 30 instances, whic' +
'hever comes first. If you decide to keep it after that, you mus' +
't contact Unisyn to register.'
end
object Label14: TLabel
Left = 8
Top = 72
Width = 361
Height = 29
Caption =
'Web users can conveniently register Safety Scan by taking advant' +
'age of our secure on-line ordering at www.unisyn.com. '
end
object UrlLabel1: TUrlLabel
Left = 8
Top = 132
Width = 233
Height = 16
Cursor = 5
Hint = 'Connect to Unisyn'#39's Secure Web Order Form'
Caption = 'Click Here to Order SafetyScan Now!'
Color = clRed
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentColor = False
ParentFont = False
URL = 'https://secure.other-world.com/ftp/unisyn-admin/orderform.htm'
end
object Label15: TLabel
Left = 116
Top = 192
Width = 86
Height = 13
Caption = 'Instances Left:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object lblInst: TLabel
Left = 204
Top = 192
Width = 15
Height = 13
Caption = '30'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 124
Top = 168
Width = 81
Height = 19
Caption = 'Only $29.95'
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 244
Top = 124
Width = 189
Height = 125
Caption = 'Unisyn - Ordering Information'
TabOrder = 0
object Label2: TLabel
Left = 88
Top = 20
Width = 69
Height = 13
Caption = '(818)951-8284'
end
object Label3: TLabel
Left = 88
Top = 40
Width = 69
Height = 13
Caption = '(818)951-8384'
end
object Label4: TLabel
Left = 88
Top = 60
Width = 92
Height = 13
Caption = 'sscan@unisyn.com'
end
object Label6: TLabel
Left = 88
Top = 100
Width = 80
Height = 13
Caption = 'www.unisyn.com'
end
object Label8: TLabel
Left = 88
Top = 80
Width = 57
Height = 13
Caption = '74667,3166'
end
object Label9: TLabel
Left = 12
Top = 20
Width = 34
Height = 13
Caption = 'Phone:'
end
object Label10: TLabel
Left = 12
Top = 40
Width = 33
Height = 13
Caption = 'FAX:'
end
object Label11: TLabel
Left = 12
Top = 60
Width = 33
Height = 13
Caption = 'EMail:'
end
object Label12: TLabel
Left = 12
Top = 80
Width = 64
Height = 13
Caption = 'CompuServe:'
end
object Label13: TLabel
Left = 12
Top = 100
Width = 28
Height = 13
Alignment = taRightJustify
Caption = 'WEB:'
end
end
object btnAgree: TButton
Left = 8
Top = 156
Width = 77
Height = 21
Caption = 'Register &Later'
Enabled = False
ModalResult = 1
TabOrder = 1
OnClick = btnAgreeClick
end
object Button1: TButton
Left = 8
Top = 228
Width = 161
Height = 21
Caption = '&Ordering Information'
Default = True
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Top = 204
Width = 77
Height = 21
Caption = '&Exit'
TabOrder = 3
OnClick = Button2Click
end
object Button3: TButton
Left = 8
Top = 180
Width = 77
Height = 21
Caption = '&Register Now'
TabOrder = 4
OnClick = Button3Click
end
object Timer1: TTimer
Enabled = False
Interval = 3000
OnTimer = Timer1Timer
Left = 304
Top = 28
end
end